
Public Class classComputer
    Inherits System.Collections.CollectionBase

    Public Overloads Function Add(ByVal _Computer As Computer) As Computer
        Me.InnerList.Add(_Computer)
        Return _Computer
    End Function

    Public Overloads Function Item(ByVal Index As Integer) As Computer
        Return CType(Me.InnerList.Item(Index), Computer)
    End Function

    Public Overloads Function Item(ByVal _Computer As Computer) As Computer
        Dim myIndex As Integer

        myIndex = Me.InnerList.IndexOf(_Computer)
        Return CType(Me.InnerList.Item(myIndex), Computer)
    End Function


    Public Overloads Function ItemCount() As Integer
        Return Me.InnerList.Count
    End Function

    Public Overloads Sub Remove(ByVal _Computer As Computer)
        Me.InnerList.Remove(_Computer)
    End Sub

    Public Overloads Sub Remove(ByVal Index As Integer)
        Dim _Computer As Computer
        _Computer = CType(Me.InnerList.Item(Index), Computer)
        If Not _Computer Is Nothing Then
            Me.InnerList.Remove(_Computer)
        End If
    End Sub

End Class
